#!/usr/bin/perl
#Descricao: Classe ecommerce
#Criado por: Horacio Ibrahim horacioibrahim at gmail
#Criado em: 13set11
#

package Ecommerce;
sub new 
{
	my $class = shift;
	my $self = {
		_urldomain => shift,
		_urlbusca => shift,
		_dom => shift,
		_selector => shift,
		_type => shift,
		_logo => shift,
	};

	bless $self,$class;
	return $self;	
}

sub setUrlDomain {
	my ($self, $urlDomain) = @_;
	$self->{_urldomain} = $urlDomain if defined ($urlDomain);	
}
sub getUrlDomain {
	my ($self) = @_;
	return $self->{_urldomain};
}
sub setUrlBusca {
	my ($self, $urlBusca) = @_;
	$self->{_urlbusca} = $urlBusca if defined ($urlBusca);	
}
sub getUrlBusca {
	my ($self) = @_;
	return $self->{_urlbusca};
}
sub setDom {
	my ($self, $Dom) = @_;
	$self->{_dom} = $Dom if defined ($Dom);	
}
sub getDom {
	my ($self) = @_;
	return $self->{_dom};
}
sub setSelector {
	my ($self, $Selector) = @_;
	$self->{_selector} = $Selector if defined ($Selector);	
}
sub getSelector {
	my ($self) = @_;
	return $self->{_selector};
}
sub setType {
	my ($self, $Type) = @_;
	$self->{_type} = $Type if defined ($Type);	
}
sub getType {
	my ($self) = @_;
	return $self->{_type};
}
sub setLogo {
	my ($self, $Logo) = @_;
	$self->{_logo} = $Logo if defined ($Logo);	
}
sub getLogo {
	my ($self) = @_;
	return $self->{_logo};
}


1;
